(define (for-each m items)
    (if (null? items)
        #t
        (begin           
            (for-each m (cdr items))
            (m (car items))
        )
    )
)
(for-each 
    (lambda (x) (newline) (display x))
    (list 57 321 88)
)
(exit)